Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/funcity/tokyo/tower.dcr/00001_movie script.ls

Text File | 2017-09-21 | 10.5 KB | 420 lines

global oncursor, kidobj, diekidnum, getfirenum, firerectslist, fallironmode, lastfalltime, userid, userpw, userpm, userpg, lasteventtime, bamode, jumpmoviename, jumpmode

on startMovie
  set oncursor to [the number of cast "onCursor", the number of cast "onCursor" + 1]
  set diekidnum to 0
  set getfirenum to EMPTY
  set fallironmode to 0
  set kidobj to EMPTY
  if not voidp(userid) then
    put userid into field "userID"
  end if
  cursor(oncursor)
  set lasteventtime to the ticks
  set bamode to 0
end

on stopMovie
  put "guest" into field "userID"
  put field "addInfoText1" into field "addInfo"
  put 0 into field "label"
  put 0 into field "point"
end

on resetcursor
  cursor(oncursor)
end

on resetspritecursor
  repeat with s = 1 to 48
    set the cursor of sprite s to 0
  end repeat
end

on gameback
  if (the ticks - lasteventtime) > 15 then
    if the frame >= label("ba") then
      nothing()
    else
      if the frame >= label("check") then
        repeat with s = 1 to 48
          set the puppet of sprite s to 0
        end repeat
        go("loop")
      else
        if the frame >= label("help") then
          if objectp(kidobj) then
            set the puppet of sprite clickOn() to 0
            go(label("game") + 1)
          else
            go("loop")
          end if
        else
          if the frame >= label("game") then
            repeat with s = 1 to 48
              set the puppet of sprite s to 0
            end repeat
            go("loop")
          else
            jumpnetmovie("menu.dcr", 0)
          end if
        end if
      end if
    end if
  end if
  set lasteventtime to the ticks
end

on gamehelp
  if the frame >= label("ba") then
    exit
  end if
  set the puppet of sprite clickOn() to 0
  go("help")
end

on gamequit
  if (the ticks - lasteventtime) > 15 then
    if the frame >= label("ba") then
      exit
    end if
    if the frame >= label("check") then
      jumpnetmovie("menu.dcr", 0)
    else
      set the puppet of sprite clickOn() to 0
      showscore()
    end if
  end if
  set lasteventtime to the ticks
end

on jumpnetmovie mname, jmode
  set jumpmoviename to mname
  set jumpmode to jmode
  if userid = "guest" then
    set jumpmode to 1
  end if
  repeat with s = 1 to 48
    set the puppet of sprite s to 0
  end repeat
  if jumpmode then
    gotonetmovie(mname)
  else
    setuserpm()
  end if
  go("move")
end

on setuserpm
  getnettext("http://202.224.191.2/cgi-bin/EcOpe.cgi?name=" & userid & "&password=" & userpw & "&amount=" & userpg & "¶meter=" & userpm)
end

on checknetresult
  if jumpmode then
    exit
  end if
  if netdone() then
    set nresult to nettextresult()
    if nresult starts "<" then
      alert(deletetag(nresult))
      go("loop")
      abort()
    else
      if nresult starts "E000" then
        if line 1 of nresult = "E0000" then
          set rtext to "Error : Server System Error"
        else
          if line 1 of nresult = "E0001" then
            set rtext to "Error : " & userid & "The name is not registered."
          else
            if line 1 of nresult = "E0002" then
              set rtext to "Error : The password is wrong."
            else
              if line 1 of nresult = "E0003" then
                set rtext to "Error : The parameter's form is wrong."
              else
                if line 1 of nresult = "E0003" then
                  set rtext to "Error : Your balance is short - you cannot make a withdrawal."
                end if
              end if
            end if
          end if
        end if
        alert(rtext)
        go("loop")
        abort()
      else
        set jumpmode to 1
        gotonetmovie(jumpmoviename)
      end if
    end if
  end if
end

on deletetag ctext
  repeat while ctext contains "<"
    set fchar to offset("<", ctext)
    set echar to offset(">", ctext)
    delete char fchar to echar of ctext
  end repeat
  return ctext
end

on dogame
  stopkid(kidobj)
  falliron()
  rolloverbtn()
end

on resetgame
  cursor(4)
  birthkid()
  setfirerects()
  set getfirenum to 0
  set the puppet of sprite 1 to 1
  set lastfalltime to the ticks + (8 * 60)
  set fallironmode to 0
  set diekidnum to 0
  cursor(oncursor)
end

on showscore
  put integer(getfirenum * 10) into field "point"
  if getfirenum = 9 then
    put 100 into field "label"
    put field "addInfoText2" into field "addInfo"
  else
    set getlebel to getfirenum
    put integer(getlebel * 10) into field "label"
    put field "addInfoText1" into field "addInfo"
  end if
  put getfirenum into char 11 of userpm
  go("check")
end

on birthkid
  set kidobj to birth(script "kid script")
end

on turnright
  goright(kidobj)
end

on turnleft
  goleft(kidobj)
end

on turnup
  goup(kidobj)
end

on turndown
  godown(kidobj)
end

on hanm
  checkfire(kidobj)
end

on rolloverbtn
  set rcnum to the mouseCast
  if rcnum > 0 then
    set rcname to string(the name of cast rcnum)
    if item 2 of rcname = "off" then
      repeat with s = 36 to 43
        if the castNum of sprite s = rcnum then
          set the puppet of sprite s to 1
          set the castNum of sprite s to rcnum + 1
          next repeat
        end if
        set the puppet of sprite s to 0
      end repeat
    else
      if item 2 of rcname = "on" then
        repeat with s = 36 to 43
          if the castNum of sprite s = rcnum then
            if the mouseDown and (clickOn() = s) then
              set the castNum of sprite s to rcnum + 1
              updateStage()
              do(item 1 of rcname)
            end if
          end if
        end repeat
      else
        if item 2 of rcname = "click" then
          repeat with s = 36 to 43
            if the castNum of sprite s = rcnum then
              if the mouseUp then
                set the castNum of sprite s to rcnum - 1
                next repeat
              end if
              do(item 1 of rcname)
            end if
          end repeat
        else
          repeat with s = 36 to 43
            set the puppet of sprite s to 0
          end repeat
        end if
      end if
    end if
  else
    repeat with s = 36 to 43
      set the puppet of sprite s to 0
    end repeat
  end if
end

on getkidmovewidth tlv
  if tlv <= 155 then
    set rw to 334
    set lw to 118
  else
    if tlv <= 281 then
      set rw to 278 + integer((1 - ((tlv - 155) / float(281 - 155))) * (334 - 278))
      set lw to 168 - integer((1 - ((tlv - 155) / float(281 - 155))) * (168 - 118))
    else
      if tlv <= 359 then
        set rw to 260 + integer((1 - ((tlv - 281) / float(359 - 281))) * (278 - 260))
        set lw to 194 - integer((1 - ((tlv - 281) / float(359 - 281))) * (194 - 168))
      else
        if tlv <= 575 then
          set rw to 232 + integer((1 - ((tlv - 359) / float(575 - 359))) * (260 - 232))
          set lw to 220 - integer((1 - ((tlv - 359) / float(575 - 359))) * (220 - 194))
        else
          if tlv <= 675 then
            set rw to 232
            set lw to 220
          else
            set rw to 228
            set lw to 224
          end if
        end if
      end if
    end if
  end if
  return rw & "," & lw
end

on setfirerects
  set firerectslist to []
  repeat with l = 1 to 12
    addrandomrect(285, 358)
  end repeat
  repeat with l = 13 to 20
    addrandomrect(359, 576)
  end repeat
  addrandomrect(577, 671)
end

on addrandomrect slv, mlv
  repeat with r = 1 to 10
    set rv to random(mlv - 4 - (slv + 4)) + (slv + 4)
    set rh to random(integer(item 1 of getkidmovewidth(rv)) - 4 - (integer(item 2 of getkidmovewidth(rv)) + 4)) + integer(item 2 of getkidmovewidth(rv)) + 4
    set newrect to rect(rh - 10, rv - 10, rh + 10, rv + 10)
    set rectcheck to 1
    if count(firerectslist) > 0 then
      repeat with l = 1 to count(firerectslist)
        if intersect(getAt(firerectslist, l), newrect) <> rect(0, 0, 0, 0) then
          set rectcheck to 0
          exit repeat
        end if
      end repeat
    end if
    if rectcheck then
      add(firerectslist, newrect)
      exit
    end if
  end repeat
end

on checkfirerect
  repeat with l = 1 to count(firerectslist)
    if inside(the loc of sprite 1, getAt(firerectslist, l)) then
      if (the locV of sprite 1 > 370) and not bamode and (random(2) = 1) then
        set bamode to 1
        go("ba")
        puppetSound("tutumi")
      else
        getfire()
        deleteAt(firerectslist, l)
      end if
      exit
    end if
  end repeat
end

on getfire
  set the type of sprite 4 to 1
  set the castNum of sprite 4 to the number of cast "fire"
  set the ink of sprite 4 to 36
  set the foreColor of sprite 4 to 255
  set the backColor of sprite 4 to 0
  set the locH of sprite 4 to 260
  set the locV of sprite 4 to 125
  updateStage()
  puppetSound("fanfare")
  repeat with l = 1 to 2
    repeat with s = 37 to 40
      set bname to item 1 of the name of cast the castNum of sprite s
      set the castNum of sprite s to the number of cast (bname & ",click")
      updateStage()
      wait(2)
      set the castNum of sprite s to the number of cast (bname & ",off")
      updateStage()
    end repeat
  end repeat
  set getfirenum to getfirenum + 1
  set the puppet of sprite (18 + getfirenum) to 1
  set the ink of sprite (18 + getfirenum) to 36
  set the blend of sprite (18 + getfirenum) to 100
  if getfirenum >= 9 then
    showscore()
  end if
end

on setfalliron
  set fallironmode to random(2) + 5
  set the puppet of sprite fallironmode to 1
  set the locV of sprite fallironmode to -40
  set the locH of sprite fallironmode to 232 + (integer(((12 - getfirenum) * 2.59999999999999964) + random(12)) * (1 - (2 * (random(2) = 1))))
  puppetSound(3, the number of cast "fall")
end

on falliron
  if fallironmode = 0 then
    if (the ticks - lastfalltime) > (2 * 60) then
      setfalliron()
      set lastfalltime to the ticks + random(120) + ((9 - getfirenum) * 40)
    end if
    exit
  end if
  set ksnum to the snum of kidobj
  set kloch to the locH of sprite ksnum
  set ktop to the top of sprite ksnum
  if inside(the loc of sprite fallironmode, rect(kloch - 35, ktop - 5, kloch + 25, ktop + 10)) and (the cnum of kidobj <> the number of cast "kid_fall") then
    puppetSound("hit")
    set lastfalltime to the ticks + random(20 * 60)
    updateStage()
    wait(8)
    setfallkid(kidobj)
  else
    if the cnum of kidobj <> the number of cast "kid_fall" then
      set the locV of sprite fallironmode to the locV of sprite fallironmode + 8
    end if
  end if
  if (the locV of sprite fallironmode - the bottom of sprite 1) > 10 then
    set the locV of sprite fallironmode to -40
    set fallironmode to 0
  end if
end

on wait wticks
  set stime to the ticks
  repeat while 1
    if (the ticks - stime) >= wticks then
      exit repeat
    end if
  end repeat
end